home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / DATABASE / S9303.ZIP;1 / KOORHAN.ZIP / MOVEUP.PRG < prev   
Encoding:
Text File  |  1993-02-10  |  231 b   |  10 lines
  1. PROCEDURE MoveUp
  2. _CUROBJ = IIF( _CUROBJ < 13, ;
  3.                _CUROBJ + 180, ;
  4.                _CUROBJ - 12)
  5.  
  6. PROCEDURE MoveDown
  7. _CUROBJ = IIF( _CUROBJ > 180, ;
  8.                _CUROBJ - 180, ;
  9.                _CUROBJ + 12)
  10.